Top 10k strings from Club Record Controller (1982)(Sinclair Research).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TAP] (TOSEC-v2007-01-01) /

Back to the directory listing

   2 b+(n=s);c$(m
   2 ;"    ";z$(
   1 used by the computer for this?                                       
   1 telephone numbers               It can also hold up to 
   1 say how the computer is  
   1 records can be held.                                       
   1 qq,a;n$(p,7
   1 q$(n);" ";c$(m
   1 p$(n)=n$(c,x
   1 names                           - 
   1 n;" Addr ";n-b;" ";
   1 n$(n)=n$(n-b)
   1 n$(n)=n$(n+b)
   1 ln,a;q$(n);" ";
   1 l$(s*g-b):
   1 l$(g*n-b)+i)
   1 l$(g*n+b)=
   1 l$(g*n+b)-b)
   1 l$(g*cn-b):
   1 in addition to
   1 ge           h              j              k              i              u              
   1 g;q$(n);" ";
   1 g;("Member's name"
   1 g;"Member's name"
   1 g;" 0 Member's name"
   1 fields total 10 characters,
   1 field - maximum length 12.                                            Records are filed away in
   1 f,b;"Too small":
   1 f,b;"Too large":
   1 f,b;"Press any letter to continue."
   1 f,b;"Press a key from 1 to 9":
   1 f,b;"Press a key from 0 to ";l;"."
   1 f,b;"Press Y for yes, N for no."
   1 f,a;z$;z$;
   1 f,a;z$;z$:
   1 f,a;"Printing details"
   1 f,a;"Press: R- repeat mode; P- print screen; any other letter- exit."
   1 f,a;"Press: P - print screen; any    other letter to continue."
   1 f,a;"Press a key from 1 to ";l:
   1 f,a;"Please confirm: Y - yes, delete;N - no, keep this record."
   1 f,a;"Maximum length exceeded; please re-enter."
   1 f,a;"Is this value to be there (Y) ornot (N)?              "
   1 f,a;"File being amended         ";z$
   1 f,a;"Enter the contents on which"'"the condition applies.":
   1 f,a;"Enter number in range 6 to 20."
   1 f,a;"Enter number in range 1 to 12."
   1 f,a;"Enter line ";r$;"                    ";z$
   1 f,a;" Error, enter a number";z$
   1 f                   f                                                                                                   
   1 extra fields.                                                         How many fields do you want
   1 do this once only.             2  
   1 b;p$(n-b);
   1 b;"Input ignored";
   1 b''" Sort field: ";
   1 b'"contains ";
   1 b'"On which field is the condition to apply?"''
   1 b'" Your field names are:"'':
   1 addresses                       - 
   1 ab           
   1 a;"Tel. no.?";
   1 a;"; field too long.  Line to amend? (0 if none)":
   1 a$(en-st+b)
   1 a              dd             
   1 `abcdefghijklmnopqrR
   1 ZX CONTR. 
   1 You can have up to 9.                                                                                                                                                             Please give the name you want
   1 Will that be enough?              
   1 Which field do you want to be
   1 Welcome to this program.         
   1 Using sound slows the program.    
   1 Updating fileI
   1 This is the point of no return!   A final opportunity for you to
   1 The program can run in silence.   
   1 PRINT MEMBERS' DETAILS
   1 Now enter the length of each
   1 Member's record does not existYour file will now be saved for future use - version no.        Which line to amend (1 to 7 or  A to I)?  Press 0 when finished.V*
   1 List complete"
   1 LIST OF MEMBERS
   1 International Computers Ltd '82"
   1 However, the computer can:        - ring when input is required       - buzz if you make a mistake        - beep each key depression.         
   1 For example, if the extra
   1 Do you want sound?
   1 Decide carefully about your 
   1 Condition:
   1 Are you happy with this?
   1 ;"Version ";w''''
   1 ;"CLUB RECORD CONTROLLER"
   1 ,b;"room for ";o;" records."
   1 ,b;"Number of optional fields ";l''
   1 ,a;"How many spaces do you want at  the start of each line?"
   1 +n,f;"Length ";i
   1 +n,b;n;" ";q$(n)
   1 +n);" ";q$(n);" ";
   1 (eg by members' names or  membership numbers).                
   1 'j$(b)'j$(g):
   1 '"With which member do you want tostart?"
   1 '"How many lines do you want for  each name and address?"
   1 '"Enter ";
   1 '"Each name and address will be   printed over ";lf;" lines and"'"each line will start with ";tb'"spaces."
   1 "ZX CONTR."
   1 "Tel no ";c$(76
   1 "Press: A - print full details"''"       N - names and addresses             only."
   1 "Press: A - all members"'"       S - specific members"'"       C - on condition"
   1 "Membership no." or     "Date subs due", each up to 
   1 "Membership no" or "Subs paid")   Enter your name for field           (up to 15 characters)                                                   
   1 "Condition field: ";
   1 "Address ";n-b;"?"
   1 "7 Tel no ";
   1 "1 Name   ";
   1 "'"field ";
   1 " ";n;" ";q$(n)
   1  records can be held.
   1  new records or     
   1  name, address    and telephone number?                                                   
   1  existing records.     
   1  club members.                                        The exact number will depend 
   1  The number and size of       these optional fields affect
   1  Record already exists - you     can only amend or delete it.     1 Add new member's details      2 Alter member's details        3 Remove member's details       4 List members' names           5 Display members' details      6 Print member's details        7 Save file                     8 Stop                          Press a key from 1 to 8        
   1  MEMBER'S DETAILS
   1  It will keep details for you
   1  File full; no more records can  be added.W
   1   have specified, there will be                                           
   1   characters long.                                                        
   1   change your mind and work
   1    to organise your file.  You
   1    set up your file.                   Using the record structure you
   1    routine, C to continue.
   1    on how much information 
   1    each field known by
   1    Fedab                                                                12                  aass3 45f f     xyB
   1     total 100 characters, then
   1     such as 
   1     how many records can be kept.       
   1     Press N to make changes or any  other letter to continue.
   1      want to hold about them.                                                The program runs in two stages:     1  
   1      from the beginning again.           Press R to repeat this set-up
   1       only 
   1        through this set-up routine
   1         further items of information
   1                                 D
   1                                  The computer is now ready to 
   1                                  However, if the extra fields
   1                                                   The program will hold:              - 
   1